home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sun4.md / alloca.ph < prev    next >
Encoding:
Text File  |  1991-08-15  |  191 b   |  11 lines
  1. if (!defined &_ALLOCA_H) {
  2.     eval 'sub _ALLOCA_H {1;}';
  3.     if (defined &sun4) {
  4.     eval 'sub alloca {
  5.         local($p) = @_;
  6.         eval "((\'char\' *)  &__builtin_alloca($p))";
  7.     }';
  8.     }
  9. }
  10. 1;
  11.